pascal高精度求2^(n-1)-2

这个题目是哪本书的习题吗，我2008-5-6日写过文章，记录了当时回帖的程序。地址是：http://hi.baidu.com/134931/blog/item/2897c56256daa2d8e6113a2e.html

{$apptype console}
program exp;
var a:string;{全局大数}
procedure big_multi(x:integer);{实现大数乘法运算：a:=a*x}
var b,c,i,n:integer;
begin
c:=0;
n:=length(a);
i:=1;
while i<=n do
begin
b:=ord(a[i])-ord('0');
b:=b*x+c;
c:=b div 10;
b:=b mod 10;
a[i]:=chr(ord('0')+b);
i:=i+1;
end;
if c>0 then a:=a + chr(ord('0')+c)
end;
procedure big_add(x:integer);{实现大数加法运算：a:=a+x}
var b,c,i,n:integer;
begin
c:=x;
n:=length(a);
i:=1;
while (i<=n)and(c>0) do
begin
b:=ord(a[i])-ord('0');
b:=b+c;
c:=b div 10;
b:=b mod 10;